Summit/Summit Recordable CD-ROM.ISO/screen/disclm.spr

Text File | 1994-08-10 | 5.6 KB | 163 lines

*       *********************************************************
*       *
*       * 08/10/94             DISCLM.SPR                12:50:27
*       *
*       *********************************************************
*       *
*       * Author's Name
*       *
*       * Copyright (c) 1994 Company Name
*       * Address
*       * City,     Zip
*       *
*       * Description:
*       * This program was automatically generated by GENSCRN.
*       *
*       *********************************************************


#REGION 0
REGIONAL m.currarea, m.talkstat, m.compstat

IF SET("TALK") = "ON"
    SET TALK OFF
    m.talkstat = "ON"
ELSE
    m.talkstat = "OFF"
ENDIF
m.compstat = SET("COMPATIBLE")
SET COMPATIBLE FOXPLUS

m.rborder = SET("READBORDER")
SET READBORDER ON

*       *********************************************************
*       *
*       *               Windows Window definitions
*       *
*       *********************************************************
*

IF NOT WEXIST("_qsg0rit3n")
    DEFINE WINDOW _qsg0rit3n ;
        AT  0.000, 0.000  ;
        SIZE 23.231,105.800 ;
        TITLE "Disclaimer" ;
        FONT "MS Sans Serif", 8 ;
        FLOAT ;
        CLOSE ;
        MINIMIZE ;
        SYSTEM
    MOVE WINDOW _qsg0rit3n CENTER
ENDIF


*       *********************************************************
*       *
*       *          DISCLM/Windows Setup Code - SECTION 2
*       *
*       *********************************************************
*

#REGION 1
USE DISCLAIM

=SYS(2002)


*       *********************************************************
*       *
*       *              DISCLM/Windows Screen Layout
*       *
*       *********************************************************
*

#REGION 1
IF WVISIBLE("_qsg0rit3n")
    ACTIVATE WINDOW _qsg0rit3n SAME
ELSE
    ACTIVATE WINDOW _qsg0rit3n NOSHOW
ENDIF
@ 0.154,0.400 EDIT Disclaim.text ;
    SIZE 23.000,105.400,0.000 ;
    DEFAULT " " ;
    FONT "MS Sans Serif", 8 ;
    VALID _qsg0ritq2()

IF NOT WVISIBLE("_qsg0rit3n")
    ACTIVATE WINDOW _qsg0rit3n
ENDIF

READ CYCLE ;
    WHEN _qsg0ritw2() ;
    DEACTIVATE .T.

RELEASE WINDOW _qsg0rit3n

#REGION 0

SET READBORDER &rborder

IF m.talkstat = "ON"
    SET TALK ON
ENDIF
IF m.compstat = "ON"
    SET COMPATIBLE ON
ENDIF


*       *********************************************************
*       *
*       *               DISCLM/Windows Cleanup Code
*       *
*       *********************************************************
*

#REGION 1
ON KEY LABEL SPACEBAR
ON KEY LABEL MOUSE
ON KEY LABEL ENTER
=SYS(2002, 1)

*       *********************************************************
*       *
*       * _QSG0RITQ2           Disclaim.text VALID
*       *
*       * Function Origin:
*       *
*       * From Platform:       Windows
*       * From Screen:         DISCLM,     Record Number:    2
*       * Variable:            Disclaim.text
*       * Called By:           VALID Clause
*       * Object Type:         Field
*       * Snippet Number:      1
*       *
*       *********************************************************
*
FUNCTION _qsg0ritq2     &&  Disclaim.text VALID
#REGION 1
ON KEY CLEAR READ

*       *********************************************************
*       *
*       * _QSG0RITW2           Read Level When
*       *
*       * Function Origin:
*       *
*       *
*       * From Platform:       Windows
*       * From Screen:         DISCLM
*       * Called By:           READ Statement
*       * Snippet Number:      2
*       *
*       *********************************************************
*
FUNCTION _qsg0ritw2     && Read Level When
*
* When Code from screen: DISCLM
*
#REGION 1
ON KEY LABEL MOUSE CLEAR READ
*ON KEY LABEL enter CLEAR READ
ON KEY LABEL SPACEBAR CLEAR READ
ON KEY LABEL ENTER CLEAR READ